home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00084.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.6 KB  |  103 lines
  1. global roomnumber, vrpict, light, objectpict, returnlist, objmarker
  2.  
  3. on plananimation
  4.   global plan, aniflag
  5.   set currcast to the memberNum of sprite plan
  6.   if aniflag = 1 then
  7.     repeat while currcast < 4
  8.       set currcast to currcast + 1
  9.       set the memberNum of sprite plan to currcast
  10.       updateStage()
  11.     end repeat
  12.     set aniflag to 0
  13.   else
  14.     repeat while currcast > 1
  15.       set currcast to currcast - 1
  16.       set the memberNum of sprite plan to currcast
  17.       updateStage()
  18.     end repeat
  19.     set aniflag to 1
  20.   end if
  21. end
  22.  
  23. on selectmenu
  24.   global roomname, objnamesprite, nodepict
  25.   if the mouseCast > 0 then
  26.     case the name of the mouseMember of
  27.       "MainMenu":
  28.         go("MainMenu")
  29.       "FloorMenu":
  30.         go("FloorMenu")
  31.       "Plan 1", "Plan 2", "Plan 3":
  32.         go("Plan" && the last char in the name of the mouseMember)
  33.     end case
  34.     if not rollOver(120) then
  35.       set the visible of sprite light to 0
  36.       set the visible of sprite objnamesprite to 0
  37.       updateStage()
  38.       puppetSprite(objectpict, 0)
  39.       if rollOver(94) then
  40.         if (roomnumber <> "109") and (roomnumber <> "304") and (roomnumber <> "311") and (roomnumber <> "315") then
  41.           puppetSprite(nodepict, 0)
  42.           if roomnumber <> "000" then
  43.             set the visible of sprite objmarker to 1
  44.           end if
  45.           go(the frame + 1)
  46.         end if
  47.       end if
  48.     end if
  49.   end if
  50. end
  51.  
  52. on setreturnframe
  53.   global returnframe
  54.   set returnframe to the frame + 1
  55. end
  56.  
  57. on towhichfloor number
  58.   global nodeplan, nodepict, roomnumber, compassline1, compassline2, audioguidesprite
  59.   if roomnumber <> number then
  60.     unLoad("Room", "Exit")
  61.     puppetSprite(nodepict, 0)
  62.     puppetSprite(objectpict, 0)
  63.     puppetSprite(compassline1, 0)
  64.     puppetSprite(compassline2, 0)
  65.     puppetSprite(audioguidesprite, 0)
  66.     set the visible of sprite nodeplan to 0
  67.     set the visible of sprite compassline1 to 0
  68.     set the visible of sprite compassline2 to 0
  69.     set the visible of sprite audioguidesprite to 0
  70.     plananimation()
  71.     closemovie()
  72.     showcast("R" & number)
  73.     set roomnumber to number
  74.     if number = "000" then
  75.       go(1)
  76.     else
  77.       go(label("First") + 1)
  78.     end if
  79.   end if
  80. end
  81.  
  82. on towhichroom number
  83.   global audioguidesprite
  84.   set the visible of sprite light to 0
  85.   updateStage()
  86.   setProp(returnlist, #flag, 0)
  87.   set roomnumber to number
  88.   set the visible of sprite audioguidesprite to 1
  89.   if number = "000" then
  90.     openqtvr("invisible")
  91.     go(label("Room") + 2)
  92.   else
  93.     go("Room")
  94.   end if
  95. end
  96.  
  97. on gotoindex
  98.   global roomnumber
  99.   if (roomnumber <> "100") and (roomnumber <> "200") and (roomnumber <> "300") then
  100.     go("IndexList", "Index1")
  101.   end if
  102. end
  103.